home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).do / DEFENDER.INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  68 lines
  1. 1  HOME 
  2. 2  SCALE= 1
  3. 3  GOSUB 32010
  4. 5  POKE 232,8: POKE 233,82: PRINT "<CTRL-D>BLOAD D": POKE 232,8: POKE 233,82
  5. 6  INPUT "DO YOU NEED INSTRUCTIONS ? (Y/N)";A$
  6. 7  IF A$ = "N"  THEN 40000
  7. 10  TEXT : HOME 
  8. 11  SPEED= 100
  9. 20  VTAB (1): PRINT "            INSTRUCTIONS "
  10. 30  VTAB (5): PRINT " IN THIS GAME OF DEFENDER TRY TO DESTROY ANY SHIP IN YOUR RANGE, BUT DO NOT GET  IN THE WAY OF THEM OR THEIR LASERS.";
  11. 40  PRINT " YOU ONLY HAVE THREE (3) SHIPS. ": PRINT : FLASH : HTAB (10): PRINT "HERE IS HOW TO MOVE": NORMAL 
  12. 50  PRINT : PRINT "             --> = RIGHT"
  13. 55  PRINT : PRINT "             <-- = LEFT "
  14. 60  PRINT : PRINT "             A = UP"
  15. 65  PRINT : PRINT "             Z = DOWN"
  16. 69  PRINT : PRINT "             Q = Q BOMB(SMART BOMB) (4)"
  17. 70  PRINT : PRINT "             SPACE BAR = FIRE"
  18. 74  INVERSE 
  19. 75  PRINT : HTAB (11): PRINT "PRESS RETURN TO GO ON"
  20. 76  NORMAL 
  21. 77  GET W$
  22. 78  HOME : PRINT " THE PROGRAM WILL EXECUTE THE LAST      COMMAND IN MEMORY UNTIL YOU EXECUTE     ANOTHER. A COMMON COMPLAINT IS THAT     IT DOES NOT RESPOND, IT IS SLOW BUT     IT DOES RESPOND."
  23. 79  PRINT : INVERSE : HTAB (5): PRINT "PRESS RETURN TO CONTINUE": NORMAL : SCALE= 1: SPEED= 255
  24. 80  GET H$
  25. 85  HOME 
  26. 90  HGR 
  27. 99  FOR T = 1 TO 100: LET A =  INT(279 * RND(1)) +1: LET A1 =  INT(159 * RND(1)) +1: HCOLOR= 5: HPLOT A,A1: NEXT 
  28. 100  FOR T = 1 TO 100  STEP 4
  29. 110  HCOLOR= 3: DRAW 4 AT T,40: DRAW 6 AT T,60: DRAW 5 AT T,80
  30. 120  HCOLOR= 0: DRAW 4 AT T,40: DRAW 6 AT T,60: DRAW 5 AT T,80: NEXT 
  31. 130  HCOLOR= 3: DRAW 4 AT T,40: DRAW 6 AT T,60: DRAW 5 AT T,80
  32. 140  FOR T = 279 TO 120  STEP  -5
  33. 150  HCOLOR= 3: DRAW 10 AT T,40: DRAW 11 AT T,60: DRAW 12 AT T,80
  34. 160  HCOLOR= 0: DRAW 10 AT T,40: DRAW 11 AT T,60: DRAW 12 AT T,80: NEXT 
  35. 170  HCOLOR= 3: DRAW 10 AT T,40: DRAW 11 AT T,60: DRAW 12 AT T,80
  36. 180  FOR T = 159 TO 81  STEP  -4
  37. 190  HCOLOR= 3: DRAW 13 AT 140,T: DRAW 13 AT 140,T -20: DRAW 13 AT 140,T -40
  38. 200  HCOLOR= 0: DRAW 13 AT 140,T: DRAW 13 AT 140,T -20: DRAW 13 AT 140,T -40: NEXT 
  39. 210  HCOLOR= 3: DRAW 13 AT 140,T: DRAW 13 AT 140,T -20: DRAW 13 AT 140,T -40
  40. 211  FOR E = 1 TO 1000: NEXT : TEXT 
  41. 230  PRINT "<CTRL-D>RUNDEFENDER"
  42. 32000  REM   "<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>TOM CLEAVER SOUND GENERATOR<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>UNIVERSITY OF LOUISVILLE<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>"
  43. 32010  POKE 816,166: POKE 817,1: POKE 818,32: POKE 819,142: POKE 820,3
  44. 32020  POKE 821,138: POKE 822,208: POKE 823,250: POKE 824,96
  45. 32030  POKE 825,216: POKE 826,165: POKE 827,3: POKE 828,133: POKE 829,0: POKE 830,56
  46. 32040  POKE 831,229: POKE 832,4: POKE 833,144: POKE 834,14: POKE 835,105: POKE 836,0
  47. 32050  POKE 837,133: POKE 838,5: POKE 839,32: POKE 840,48: POKE 841,3: POKE 842,198
  48. 32060  POKE 843,0: POKE 844,198: POKE 845,5: POKE 846,208: POKE 847,247: POKE 848,96
  49. 32070  POKE 849,73: POKE 850,255: POKE 851,105: POKE 852,2: POKE 853,133: POKE 854,5
  50. 32080  POKE 855,32: POKE 856,48: POKE 857,3: POKE 858,230: POKE 859,0: POKE 860,198
  51. 32090  POKE 861,5: POKE 862,208: POKE 863,247: POKE 864,96
  52. 32100  POKE 865,166: POKE 866,1: POKE 867,169: POKE 868,224: POKE 869,141: POKE 870,119
  53. 32110  POKE 871,3: POKE 872,169: POKE 873,0: POKE 874,141: POKE 875,118: POKE 876,3
  54. 32120  POKE 877,238: POKE 878,118: POKE 879,3: POKE 880,208: POKE 881,3: POKE 882,238
  55. 32130  POKE 883,119: POKE 884,3: POKE 885,173: POKE 886,10: POKE 887,224: POKE 888,76
  56. 32140  POKE 889,130: POKE 890,3: POKE 891,74: POKE 892,74: POKE 893,74: POKE 894,74
  57. 32150  POKE 895,74: POKE 896,74: POKE 897,74: POKE 898,24: POKE 899,105: POKE 900,1
  58. 32160  POKE 901,133: POKE 902,0: POKE 903,32: POKE 904,142: POKE 905,3: POKE 906,138
  59. 32170  POKE 907,208: POKE 908,224: POKE 909,96
  60. 32180  POKE 910,141: POKE 911,48: POKE 912,192: POKE 913,165: POKE 914,2: POKE 915,133
  61. 32190  POKE 916,7: POKE 917,164: POKE 918,0: POKE 919,136: POKE 920,208: POKE 921,253
  62. 32200  POKE 922,141: POKE 923,48: POKE 924,192: POKE 925,164: POKE 926,0: POKE 927,136
  63. 32210  POKE 928,208: POKE 929,253: POKE 930,24: POKE 931,165: POKE 932,0: POKE 933,240
  64. 32220  POKE 934,6: POKE 935,101: POKE 936,6: POKE 937,133: POKE 938,6: POKE 939,144
  65. 32230  POKE 940,4: POKE 941,138: POKE 942,240: POKE 943,1: POKE 944,202: POKE 945,198
  66. 32240  POKE 946,7: POKE 947,208: POKE 948,232: POKE 949,96
  67. 32250  GOTO 5
  68. 40000  PRINT "<CTRL-D>RUNDEFENDER"